home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / ecstr2.arc / STRTOK.C < prev    next >
Encoding:
C/C++ Source or Header  |  1986-05-21  |  1.7 KB  |  59 lines
  1. /*  File   : strtok.c
  2.     Author : Richard A. O'Keefe.
  3.     Updated: 11 April 1984
  4.     Defines: istrtok(), strtok()
  5.  
  6.     strtok(src, set)
  7.        skips over initial characters of src[] which occur in set[].
  8.        The result is a pointer to the first character of src[]
  9.        which does not occur in set[].  It then skips until it finds
  10.        a character which does occur in set[], and changes it to NUL.
  11.        If src is NullS, it is as if you had specified the place
  12.        just after the last NUL was written.  If src[] contains no
  13.        characters which are not in set[] (e.g. if src == "") the
  14.        result is NullS.
  15.  
  16.        To read a sequence of words separated by spaces you might write
  17.        p = strtok(sequence, " ");
  18.        while (p) {process_word(p); p = strtok(NullS, " ");}
  19.        This is unpleasant, so there is also a function
  20.  
  21.     istrtok(src, set)
  22.        which builds the set and notes the source string for future
  23.        reference.  With this function, you can write
  24.  
  25.        for (istrtok(wordlist, " \t"); p = strtok(NullS, NullS); )
  26.            process_word(p);
  27. */
  28.  
  29. #include "strings.h"
  30. #include "_str2set.h"
  31.  
  32. static char    *oldSrc = "";
  33.  
  34. void istrtok(src, set)
  35.     char *src, *set;
  36.     {
  37.        _str2set(set);
  38.        if (src != NullS) oldSrc = src;
  39.     }
  40.  
  41.  
  42. char *strtok(src, set)
  43.     register char *src;
  44.     char *set;
  45.     {
  46.        char *save;
  47.  
  48.        _str2set(set);
  49.        if (src == NullS) src = oldSrc;
  50.        while (_set_vec[*src] == _set_ctr) src++;
  51.      if (!*src) return NullS;
  52.        save = src;
  53.        while (_set_vec[*++src] != _set_ctr) ;
  54.        *src++ = NUL;
  55.        oldSrc = src;
  56.        return save;
  57.     }
  58.  
  59.